home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / VB MPlayer269089242001.psc / frmAbout.frm (.txt) next >
Encoding:
Visual Basic Form  |  2001-09-23  |  4.5 KB  |  141 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAbout 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "About VB MPlayer3"
  6.    ClientHeight    =   1605
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   6540
  10.    BeginProperty Font 
  11.       Name            =   "Tahoma"
  12.       Size            =   8.25
  13.       Charset         =   0
  14.       Weight          =   400
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    ForeColor       =   &H00FFFFFF&
  20.    Icon            =   "frmAbout.frx":0000
  21.    LinkTopic       =   "Form1"
  22.    MaxButton       =   0   'False
  23.    MinButton       =   0   'False
  24.    Picture         =   "frmAbout.frx":000C
  25.    ScaleHeight     =   1605
  26.    ScaleWidth      =   6540
  27.    ShowInTaskbar   =   0   'False
  28.    StartUpPosition =   2  'CenterScreen
  29.    Begin VB.PictureBox picIcon 
  30.       AutoSize        =   -1  'True
  31.       BorderStyle     =   0  'None
  32.       ClipControls    =   0   'False
  33.       Height          =   480
  34.       Left            =   360
  35.       Picture         =   "frmAbout.frx":06E3
  36.       ScaleHeight     =   337.12
  37.       ScaleMode       =   0  'User
  38.       ScaleWidth      =   337.12
  39.       TabIndex        =   6
  40.       Top             =   480
  41.       Width           =   480
  42.    End
  43.    Begin VB.CommandButton cmdOK 
  44.       Caption         =   "OK"
  45.       Default         =   -1  'True
  46.       Height          =   375
  47.       Left            =   5280
  48.       TabIndex        =   2
  49.       Top             =   720
  50.       Width           =   975
  51.    End
  52.    Begin VB.Label Label5 
  53.       AutoSize        =   -1  'True
  54.       BackStyle       =   0  'Transparent
  55.       Caption         =   "Copyright (c) 2001 Fredisoft Corp."
  56.       ForeColor       =   &H00FFFFFF&
  57.       Height          =   195
  58.       Left            =   1200
  59.       TabIndex        =   5
  60.       Top             =   840
  61.       Width           =   2490
  62.    End
  63.    Begin VB.Label Label4 
  64.       AutoSize        =   -1  'True
  65.       BackStyle       =   0  'Transparent
  66.       Caption         =   "fredisoft@bol.com.br"
  67.       ForeColor       =   &H00FF0000&
  68.       Height          =   195
  69.       Left            =   1200
  70.       MouseIcon       =   "frmAbout.frx":0FAD
  71.       MousePointer    =   99  'Custom
  72.       TabIndex        =   4
  73.       Top             =   1200
  74.       Width           =   1530
  75.    End
  76.    Begin VB.Label Label3 
  77.       AutoSize        =   -1  'True
  78.       BackStyle       =   0  'Transparent
  79.       Caption         =   "This program was developed by Frederico Machado."
  80.       ForeColor       =   &H00FFFFFF&
  81.       Height          =   195
  82.       Left            =   1200
  83.       TabIndex        =   3
  84.       Top             =   600
  85.       Width           =   3750
  86.    End
  87.    Begin VB.Label Label2 
  88.       AutoSize        =   -1  'True
  89.       BackStyle       =   0  'Transparent
  90.       Caption         =   "Version x.xx"
  91.       BeginProperty Font 
  92.          Name            =   "Tahoma"
  93.          Size            =   11.25
  94.          Charset         =   0
  95.          Weight          =   700
  96.          Underline       =   0   'False
  97.          Italic          =   0   'False
  98.          Strikethrough   =   0   'False
  99.       EndProperty
  100.       ForeColor       =   &H0080FFFF&
  101.       Height          =   270
  102.       Left            =   3600
  103.       TabIndex        =   1
  104.       Top             =   240
  105.       Width           =   1410
  106.    End
  107.    Begin VB.Label Label1 
  108.       AutoSize        =   -1  'True
  109.       BackStyle       =   0  'Transparent
  110.       Caption         =   "VB MPlayer3"
  111.       BeginProperty Font 
  112.          Name            =   "Tahoma"
  113.          Size            =   18
  114.          Charset         =   0
  115.          Weight          =   400
  116.          Underline       =   0   'False
  117.          Italic          =   0   'False
  118.          Strikethrough   =   0   'False
  119.       EndProperty
  120.       ForeColor       =   &H0080FFFF&
  121.       Height          =   435
  122.       Left            =   1200
  123.       TabIndex        =   0
  124.       Top             =   120
  125.       Width           =   1995
  126.    End
  127. Attribute VB_Name = "frmAbout"
  128. Attribute VB_GlobalNameSpace = False
  129. Attribute VB_Creatable = False
  130. Attribute VB_PredeclaredId = True
  131. Attribute VB_Exposed = False
  132. Private Sub cmdOK_Click()
  133.   Unload Me
  134. End Sub
  135. Private Sub Form_Load()
  136.   Label2 = "Version " & App.Major & "." & App.Minor & App.Revision
  137. End Sub
  138. Private Sub Label4_Click()
  139.   Shell "start mailto:fredisoft@bol.com.br"
  140. End Sub
  141.